Shareware Grab Bag/Shareware Grab Bag.iso/003/db2ios.arc/MAIN.INV

Text File | 1983-01-04 | 3.0 KB | 95 lines

* main.inv 08/18/83
STORE CHR(PEEK(063))TO dr
USE &dr.:stock
STORE t TO more
STORE t TO first
* set up forever loop for this data base
DO WHILE t
    IF first
        * set up screen and prompts
        ERASE
        STORE '<F>orward, <B>ackward, <A>dd, <E>dit' TO prompt1
        STORE '<S>earch, <M>aintenance, <P>rint, <R>eports' TO prompt2
        STORE '<Q>uit to main menu' TO prompt3
        STORE 'Main Inventory Module ' TO mode
        @  1,25 SAY mode
        @  2, 0 SAY "+--------------------------------------"
        @  2,39 SAY "----------------------------------------+"
        @  3,26 SAY "SIG/M VOLUME"
        @  5,14 SAY "Opening Inventory               Description of Volume"
        @  7,19 SAY "Back Ordered"
        @  8,15 SAY "Waiting Shipment"
        @  9,14 SAY "Quantity Received"
        @ 10,14 SAY "Closing Inventory              Change  in  Inventory: "
        @ 11,46 SAY "Date:             No: "
        @ 12,19 SAY "Normal Stock"
        @ 13,14 SAY "Quantity to Order              Change in  Backorders: "
        @ 14,15 SAY "Quantity Ordered               Date:             No: "
        @ 16,10 SAY "Anticipated Inventory"
        @ 17,51 SAY "Update"
        @ 19, 0 SAY "+--------------------------------------"
        @ 19,39 SAY "----------------------------------------+"
        @ 20,12 SAY prompt1
        @ 21,12 SAY prompt2
        @ 22,12 SAY prompt3
    ENDIF first
    STORE f TO first
    STORE '?' TO command
    IF change1 = t
        STORE 'Yes' TO mchange1
    ELSE
        STORE ' No' TO mchange1
    ENDIF change1
    IF change2 = t
        STORE 'Yes' TO mchange2
    ELSE
        STORE ' No' TO mchange2
    ENDIF change2
    @  3,39 SAY disk
    @  5,34 SAY open:inv
    @  7,34 SAY back:ord
    @  7,46 SAY line1
    @  8,34 SAY wait:ship
    @  8,46 SAY line2
    @  9,34 SAY recvd
    @ 10,70 SAY mchange1
    @ 10,34 SAY STR(open:inv-back:ord-wait:ship+recvd,3,0)
    @ 11,53 SAY daych1
    @ 11,70 SAY ship
    @ 12,34 SAY norm:stk
    @ 13,34 SAY order
    @ 13,70 SAY mchange2
    @ 14,34 SAY pend
    @ 14,53 SAY daych2
    @ 14,70 SAY backship
    @ 16,34 SAY STR(open:inv -back:ord -wait:ship + recvd + pend,3,0)
    @ 17,59 SAY dayu
    @ 22,56 SAY 'WHAT NEXT?'
    @ 22,70 GET command PICTURE '!'
    READ
    DO CASE
        CASE command = 'A'
            DO add.inv
        CASE (command = 'B' .OR. command = ',')
            * move backwards one record
            SKIP -1
        CASE command = 'E'
            DO edit.inv
        CASE (command = 'F' .OR. command = '.')
            * move forward one record
            SKIP
        CASE command = 'M'
            DO maintain.inv
        CASE command = 'P'
            DO print.inv
        CASE command = 'Q'
            RELEASE ALL
            DO menu.sig
        CASE command = 'R'
            DO report.inv
        CASE command = 'S'
            DO search.inv
    ENDCASE
    * loop back again

ENDDO while t